home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / dbmap.dxr / 00005_Init code.ls < prev    next >
Encoding:
Text File  |  2000-01-27  |  1.2 KB  |  36 lines
  1. global gDBPictObjList
  2.  
  3. on init windowTitle, mediaName
  4.   if voidp(gDBPictObjList) then
  5.     gDBPictObjList = [:]
  6.   end if
  7.   register(xtra("PrintOMatic"), "PMAT155-212-06011")
  8.   member("title f", 1).text = windowTitle
  9.   set the textHeight of member "title f" to 14
  10.   member("print title f", 1).text = windowTitle
  11.   member("media f", 1).text = filterNonAlphaDig(mediaName)
  12.   xProp = GetObjProp()
  13.   addProp(gDBPictObjList, xProp, new(script("DB Pict Class")))
  14.   MyObj = getaProp(gDBPictObjList, GetObjProp())
  15.   xMemberNum = FindMemberNum(mediaName)
  16.   SetPictMember(MyObj, member(xMemberNum))
  17.   setTitle(MyObj, windowTitle)
  18.   l = 20
  19.   t = 40
  20.   SetPictRect(MyObj, rect(l, t, l + member(xMemberNum).width, t + member(xMemberNum).height))
  21.   SetSpriteList(MyObj, [#title: 5, #Art: 6, #PrintButton: 22, #SaveButton: 23, #closeBox: 24, #MaxMinBox: 25])
  22.   SetBorderRect(MyObj, [rect(0, 0, 464, 268), rect(0, 0, 640, 411)])
  23. end
  24.  
  25. on GetObjProp
  26.   return symbol(member("media f", "Internal").text)
  27. end
  28.  
  29. on FindMemberNum mediaName
  30.   xMemberNum = the number of member mediaName of castLib "Update.cst"
  31.   if xMemberNum = -1 then
  32.     xMemberNum = the number of member mediaName of castLib "DBMap"
  33.   end if
  34.   return xMemberNum
  35. end
  36.